home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 97 / 097.d81 / walt's comix (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  180 lines
  1. 1 poke55,0:poke56,56:clr:poke53281,0:poke53280,0:print"[147]"
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 gosub60000:rem  goto7
  4. 4 sys57812"cm/scr/wp/unp",dv,0:poke780,0:poke781,0:poke782,195:sys65493
  5. 5 sys57812"psb font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 7 un=51456:hg=51459:wp=50944:sc=50176:cm=49920:poke53272,31
  7. 8 gosub1000
  8. 9 cl$="                        "
  9. 10 sp$="                                     "
  10. 15 sys50176,64,96,216
  11. 19 goto100
  12. 20 fori=15to24:poke781,i:sys59903:next
  13. 21 return
  14. 100 fori=1to8:readmn$(i):next
  15. 102 data"          [211]abu          "
  16. 103 data"         [193]nnie!         "
  17. 104 data"    [196]octor and [206]urse    "
  18. 105 data"      [193]ngry [195]lient      "
  19. 106 data"    [205]onkey and [205]odel    "
  20. 107 data"        [199]oldfish        "
  21. 108 data"       [194]ig [196]ealers      "
  22. 109 data"      [204][207][193][196][211][212][193][210] [205]an      "
  23. 110 b$(0)="[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  24. 112 b$(1)[178]"(NULL)                        (NULL)
  25. 114 b$(2)="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  26. 115 zz[178]0:[151]198,0
  27. 116 zz[178]zz[170]1:[161]a$:[139]a$[178]""[175]zz[179]300[167]116
  28. 117 [158]hg
  29. 118 [153]"load       (NULL) atn (NULL) (NULL) ' (NULL)    len (NULL) (NULL) right$ (NULL)":mm[178]0
  30. 120 [151]214,4:[153]:[153][163]6)b$(0):[129]i[178]1[164]8:[153][163]6)b$(1):[130]
  31. 122 [153][163]6)b$(2)
  32. 124 [151]214,5:[153]"list":[129]i[178]1[164]8:[153][163]7)mn$(i):[130]
  33. 125 [153]"cont (NULL)se len(NULL)(NULL)(NULL) keyscont to move highlight bar
  34. 126 print" [208]ress [210][197][212][213][210][206][154] to view highlighted comic"
  35. 128 print" [208]ress [209][154] to quit the [195][207][205][201][216]
  36. 129 m[178]1
  37. 130 [151]214,4[170]m:[153]:[153][163]7)""mn$(m)"on"
  38. 132 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[175]a$[179][177]"q"[167]132
  39. 134 [139]a$[178][199](13)[167]170
  40. 136 [153][163]7)"list"mn$(m)
  41. 138 [139]a$[178]"on"[167]m[178]m[171]1:[139]m[179]1[167]m[178]8
  42. 140 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]8[167]m[178]1
  43. 141 [139]a$[178]"q"[167]400
  44. 144 [137]130
  45. 170 [153]"load    for(NULL)he (NULL)ighty (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) lenaptionizer"
  46. 172 [153]"cont (NULL)ress asc1cont to toggle between this screen
  47. 174 print" and the comic."
  48. 176 print" [208]ress [198]3[154] to print the comic on a"
  49. 178 print" 1525-emulating printer.
  50. 180 [153]" (NULL)ress asc5cont to save the comic as a str$(NULL)(NULL)str$(NULL)val
  51. 182 print" picture.
  52. 184 [153]" (NULL)ress asc7cont to return to the (NULL)ain (NULL)enu.
  53. 186 print" [208]ress [195][154] to enter a caption for the"
  54. 188 print" comic.
  55. 190 [153]" (NULL)ress (NULL)cont to print out your captions."
  56. 191 [139]mm[167]200
  57. 192 [158]57812[199](m[170]48)[170]".shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  58. 194 [151]251,100:[151]252,64:[151]253,96
  59. 196 [158]un
  60. 198 [158]hg:[151]53280,0:mm[178]1
  61. 200 [161]a$:[139]a$[178]""[167]200
  62. 201 o[178][194](53265)[175]32
  63. 202 [139]a$[178][199](133)[167][151]53270,[194](53270)[175]239:[158]hg:[137]200
  64. 204 [139]a$[178][199](134)[167][141]300:[137]210
  65. 206 [139]a$[178][199](135)[167][141]350:[137]200: [143] save
  66. 208 [139]a$[179][177][199](136)[167]212
  67. 210 [139]o[167][158]hg
  68. 211 [137]118
  69. 212 [139]a$[179][177]"c"[167]250
  70. 213 [141]20:[139]o[167][158]hg
  71. 214 [151]214,15:[153]:[153]"open valnter one or two lines for the
  72. 216 print" caption, pressing [210][197][212][213][210][206][159] at the end
  73. 218 [153]" of each line.
  74. 220 print" ";:l9=37:gosub50000:c$(m,0)=q9$+chr$(13)
  75. 222 print" ";:l9=37:gosub50000:c$(m,1)=q9$+chr$(19)
  76. 224 gosub20
  77. 226 poke214,15:print:print"[159] [201]s this correct? (y[159]/n[159]/m[159]enu)
  78. 228 [153]" "c$(m,0);
  79. 230 [153]" "c$(m,1)
  80. 232 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[175]a$[179][177]"m"[167]232
  81. 233 [141]20
  82. 234 [139]a$[178]"n"[167]214
  83. 236 [139]a$[178]"m"[167]118
  84. 238 [158]hg
  85. 240 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
  86. 242 [158]50182,1,23,"stop"[170]sp$[170][199](13):[158]50182,1,24,sp$[170][199](19)
  87. 243 [129]i[178]0[164]1:[158]50182,1,23[170]i,c$(m,i):[130]
  88. 244 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  89. 246 [137]170
  90. 250 [139]a$[179][177]"p"[167]200
  91. 251 [139][194](53265)[175]32[167][158]hg
  92. 252 [159]4,4,7:[160]4:[139]st[179][177][171]128[167]266
  93. 254 q[178]q[170]1
  94. 256 [141]20:[151]214,16:[153]
  95. 258 [153]" (NULL)urn your printer on - press a key"
  96. 260 [161]a$:[139]a$[178]""[167]260
  97. 262 [139]q[177]1[167]118
  98. 264 [137]252
  99. 266 [141]20
  100. 268 [151]214,16:[153]:[153]"cont (NULL)et top of form and press a key.
  101. 269 geta$:ifa$=""then269
  102. 270 open4,4,7
  103. 272 fori=1to8
  104. 274 print#4,mn$(i):print#4
  105. 276 forj=0to1:iflen(c$(i,j))<2then280
  106. 278 print#4,left$(c$(i,j),len(c$(i,j))-1)
  107. 280 next:print#4
  108. 282 next
  109. 284 close4:goto170
  110. 300 q=0
  111. 301 open4,4,7:close4:ifst<>-128then320
  112. 302 q=q+1:ifpeek(53265)and32thensyshg
  113. 304 gosub20:poke214,16:print
  114. 306 print" [212]urn your printer on - press a key"
  115. 308 geta$:ifa$=""then308
  116. 310 ifq>1then118
  117. 312 goto301
  118. 320 gosub20:pokewp+10,64:syswp
  119. 322 poke53281,0:return
  120. 350 ifpeek(53265)and32thensyshg
  121. 352 gosub20
  122. 354 poke214,15:print:print"[159] [197]nter a filename for the comic.
  123. 356 [153]"cont   ----------------
  124. 358 print"[145][145]   dd";:l9=14:gosub50000:f$="dd"+q9$
  125. 360 poke214,20:print:print"[159] [197]nter the drive number: ";:l9=2:gosub50000:dn=val(q9$)
  126. 361 ifq9$=""thengosub20:goto170
  127. 362 open2,dn,2:close2:ifst<>-128then370
  128. 364 poke781,21:sys59903:goto360
  129. 370 syscm,96*256,128*256,4*256
  130. 372 syscm,64*256,96*256,32*256
  131. 373 syscm,128*256,92*256,4*256
  132. 374 sys57812f$,dn:poke193,0:poke194,92:poke174,0:poke175,128:sys62954
  133. 376 open15,dn,15:input#15,er,er$,a,a:close15
  134. 378 poke214,22:print:ifer=0then390
  135. 380 print"   [150]"er$" - press a key"
  136. 382 geta$:ifa$=""then382
  137. 384 goto200
  138. 390 print"         [212]he save was a success!"
  139. 392 fort=1to1000:next
  140. 394 syscm,96*256,64*256,32*256
  141. 396 syscm,128*256,96*256,4*256
  142. 398 goto170
  143. 400 poke214,22:print:printcl$:printcl$"[145][145]"
  144. 405 print"        [209]uit[150] to [204][207][193][196][211][212][193][210]? (y[150]/n[150])"
  145. 410 geta$:ifa$<>"y"anda$<>"n"then410
  146. 420 ifa$="n"then118
  147. 430 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  148. 440 ifer%<>63thenprint"[147]":end
  149. 445 poke646,peek(53281)
  150. 450 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  151. 460 print"run"
  152. 470 poke631,13:poke632,13:poke198,2:end
  153. 1000 sys57812"comix.shp",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  154. 1010 poke251,100:poke252,64
  155. 1020 poke253,96
  156. 1030 print"[147]";:sysun:syshg:poke53280,0
  157. 1050 return
  158. 10000 open15,8,15,"s0:walt's comix":close15:save"walt's comix",8:end
  159. 50000 q9$="":u9=53280:poke198,0
  160. 50010 getaa$
  161. 50020 poke646,rnd(1)*15+1:print"[164][157]";:ifaa$=""then50010
  162. 50030 ifaa$=chr$(13)thenprint" ":return
  163. 50040 if(aa$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50090
  164. 50050 iflen(q9$)>=l9thent9%=peek(u9):pokeu9,1:pokeu9,t9%:goto50010
  165. 50060 ifaa$<" "or(aa$>chr$(127)andaa$<chr$(160))oraa$=chr$(34)then50010
  166. 50070 q9$=q9$+aa$
  167. 50080 print""aa$;:goto50010
  168. 50090 print" [157][157] [157]";:goto50010
  169. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  170. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  171. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  172. 60030 z$(0)="[215] [193] [204] [212] ' [211]   [195] [207] [205] [201] [216]":z$(1)="by [215]alt [200]arned"
  173. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  174. 60050 z$(3)="[212]his program is the copyrighted work
  175. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  176. 60070 z$(5)[178]"shareware or in the public domain."
  177. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)